home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Virushunter / Xtruder / Install < prev    next >
Text File  |  1996-09-26  |  5KB  |  270 lines
  1. ; *******************************************************************
  2. ;
  3. ; $VER: Install_Xtruder 2.4 (4.3.96)
  4. ; 
  5. ; Install script for Xtruder copyright © 1995-1996 Martin Wulffeld
  6. ;
  7. ; *******************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. (set default_lang 2)
  13.  
  14. (set #bad-kick
  15. (cat "You must at least have Kickstart 2.04 to install Xtruder!"
  16. ))
  17.  
  18. (set #copying-bootblock        "\nCopying Bootblock.library 3.1 to LIBS:...")
  19. (set #copying-bootblockbb    "\nCopying Bootblock.brainfile to L:...")
  20. (set #copying-fileid        "\nCopying FileID.library 7.0 to LIBS:...")
  21. (set #copying-filevirus        "\nCopying filevirus.library 2.6 to LIBS:...")
  22. (set #copying-reqtoools        "\nCopying reqtools.library 38.1296 to LIBS:...")
  23. (set #copying-unpack        "\nCopying unpack.library 42.71 to LIBS:...")
  24. (set #copying-xfdlib        "\nCopying xfdmaster.library 36.4 to LIBS:...")
  25. (set #copying-xtruderlib    "\nCopying xtruder.library 37.2 to LIBS:...")
  26. (set #copying-xtruderexe    "\nCopying Xtruder executable...")
  27. (set #copying-documentation    "\nCopying Xtruder documentation...")
  28. (set #copying-catalogs        "\nCopying catalogs...")
  29. (set #copying-rexxscripts    "\nCopying rexx scripts...")
  30. (set #creating-xfd            "\nCreating directory\n\nLIBS:xfd\n\nfor external decrunchers...")
  31. (set #copying-xfdfiles        "\nCopying external decrunchers\nfor xfdmaster.library...")
  32. (set #select-dest            "Please select the path where you want to install Xtruder. A drawer named Xtruder will be created there.")
  33. (set #select-destguide        "Please select the path where you want to install the Xtruder documentation. It has already been installed along with the main program.")
  34. (set #select-destrexx        "Please select the path where you want to install the Rexx scripts. A drawer named Xtruder will be created there.")
  35. (set #select-language       "Which languages should be installed?")
  36.  
  37. ;=============================================================================
  38. ; Make sure we are running under a 2.04 ROM
  39.  
  40. (if (< (/ (getversion) 65536) 37)
  41. (
  42.     (abort #bad-kick)
  43. ))
  44.  
  45. ;=============================================================================
  46.  
  47. ;*** Required libraries
  48.  
  49. (copylib
  50.     (prompt #copying-bootblock)
  51.     (help @copylib-help)
  52.     (source "Libs/Bootblock.library")
  53.     (dest "LIBS:")
  54.     (confirm)
  55. )
  56.  
  57. (copylib
  58.     (prompt #copying-bootblockbb)
  59.     (help @copylib-help)
  60.     (source "L/Bootblock.brainfile")
  61.     (dest "L:")
  62.     (confirm)
  63. )
  64.  
  65. (copylib
  66.     (prompt #copying-fileid)
  67.     (help @copylib-help)
  68.     (source "Libs/FileID.library")
  69.     (dest "LIBS:")
  70.     (confirm)
  71. )
  72.  
  73. (copylib
  74.     (prompt #copying-filevirus)
  75.     (help @copylib-help)
  76.     (source "Libs/filevirus.library")
  77.     (dest "LIBS:")
  78.     (confirm)
  79. )
  80.  
  81. (copylib
  82.     (prompt #copying-reqtools)
  83.     (help @copylib-help)
  84.     (source "Libs/reqtools.library")
  85.     (dest "LIBS:")
  86.     (confirm)
  87. )
  88.  
  89. (copylib
  90.     (prompt #copying-unpack)
  91.     (help @copylib-help)
  92.     (source "Libs/unpack.library")
  93.     (dest "LIBS:")
  94.     (confirm)
  95. )
  96.  
  97. (copylib
  98.     (prompt #copying-xfdlib)
  99.     (help @copylib-help)
  100.     (source "Libs/xfdmaster.library")
  101.     (dest "LIBS:")
  102.     (confirm)
  103. )
  104.  
  105. (copylib
  106.     (prompt #copying-xtruderlib)
  107.     (help @copylib-help)
  108.     (source "Libs/xtruder.library")
  109.     (dest "LIBS:")
  110.     (confirm)
  111. )
  112.  
  113. (set xfdokay
  114.     (makedir "LIBS:xfd"
  115.         (prompt #creating-xfd)
  116.         (help @makedir-help)
  117.         (confirm)
  118.     )
  119. )
  120.  
  121. (if xfdokay
  122.     (copyfiles
  123.         (prompt #copying-xfdfiles)
  124.         (help @copyfiles-help)
  125.         (source "Libs/xfd")
  126.         (pattern "#?")
  127.         (dest "LIBS:xfd/")
  128.         (confirm)
  129.     )
  130. )
  131.  
  132. ;*** Xtruder executable
  133.  
  134. (set programdir
  135.     (tackon
  136.         (askdir
  137.             (prompt #select-dest)
  138.             (help @askdir-help)
  139.             (default "SYS:")
  140.             (newpath)
  141.         )
  142.         "Xtruder"
  143.     )
  144. )
  145.  
  146. (set @default-dest programdir)
  147.  
  148. (copyfiles
  149.     (prompt #copying-xtruderexe)
  150.     (source "Xtruder")
  151.     (dest programdir)
  152.     (infos)
  153. )
  154.  
  155. ;*** Copy Catalogs to Xtruder dir for backup
  156.  
  157. (copyfiles
  158.     (prompt #copying-catalogs)
  159.     (source "")
  160.     (dest programdir)
  161.     (pattern "Catalogs#?")
  162. )
  163.  
  164. ;*** Copy registration files
  165.  
  166. (copyfiles
  167.     (prompt #copying-regfiles)
  168.     (source "")
  169.     (dest programdir)
  170.     (pattern "Registration#?")
  171. )
  172.  
  173. ;*** Documentation files
  174.  
  175. ; Backup
  176.  
  177. (copyfiles
  178.     (prompt #copying-documentation)
  179.     (source "")
  180.     (dest programdir)
  181.     (pattern "Documentation#?")
  182. )
  183.  
  184. ; Ask if documentation should be installed elsewhere
  185.  
  186. (set tempdocdir
  187.     (tackon
  188.         programdir
  189.         "Documentation"
  190.     )
  191. )
  192.  
  193. (set docdir
  194.     (askdir
  195.         (prompt #select-destguide)
  196.         (help @askdir-help)
  197.         (default tempdocdir)
  198.         (newpath)
  199.     )
  200. )
  201.  
  202. (copyfiles
  203.     (prompt #copying-documentation)
  204.     (source "Documentation/Xtruder.guide")
  205.     (dest docdir)
  206.     (infos)
  207. )
  208.  
  209. ;*** Rexx scripts
  210.  
  211. (set rexxdir
  212.     (tackon
  213.         (askdir
  214.             (prompt #select-destrexx)
  215.             (help @askdir-help)
  216.             (default "REXX:")
  217.             (newpath)
  218.         )
  219.         "Xtruder"
  220.     )
  221. )
  222.  
  223. (copyfiles
  224.     (prompt #copying-rexxscripts)
  225.     (source "Rexx")
  226.     (pattern "#?")
  227.     (dest rexxdir)
  228. )
  229.  
  230. ;*** Install locale file
  231.  
  232. (if (exists "SYS:Locale")
  233. (
  234.     (if (exists "LOCALE:")
  235.     (
  236.         (set lang (askoptions (prompt #select-language)
  237.                                 (help #which-language-help)
  238.                                 (choices
  239.                                     "Svenska"
  240.                                     "English")
  241.                                 (default default_lang)
  242.                     )
  243.         )
  244.         
  245.         (set n 0)
  246.         (while
  247.             (set language (select n
  248.                                 "svenska"
  249.                                 "")
  250.             )
  251.         (
  252.             (if (IN lang n)
  253.             (
  254.                 (if (< n 2)
  255.                 (
  256.                     (makedir (cat "LOCALE:Catalogs/" language))
  257.                     (copyfiles (source (cat "Catalogs/" language))
  258.                                 (dest (cat "LOCALE:Catalogs/" language))
  259.                                 (all)
  260.                     )
  261.                 ))
  262.             ))
  263.             (set n (+ n 1))
  264.         ))
  265.     ))
  266. ))
  267.  
  268. (exit "Please reboot or flush your memory. Some older versions of the installed libraries might be present in memory."
  269. )
  270.